home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vbcons1a / clstimer.cls next >
Text File  |  1999-09-24  |  896b  |  54 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "clsTimer"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. ' in clsTimer...
  15. Dim start, finish
  16. Private Declare Function GetTickCount Lib "kernel32" () As Long
  17.  
  18.  
  19. Public Sub StopTimer()
  20.  
  21.  
  22.     finish = GetTickCount()
  23. End Sub
  24.  
  25.  
  26.  
  27. Public Sub StartTimer()
  28.  
  29.     start = GetTickCount()
  30.     finish = 0
  31. End Sub
  32.  
  33.  
  34.  
  35. Public Sub DebugTrace(v)
  36.  
  37.     'Debug.Print v & " " & Elapsed()
  38. End Sub
  39.  
  40.  
  41.  
  42. Public Property Get Elapsed()
  43.  
  44.  
  45.  
  46.     If finish = 0 Then
  47.         Elapsed = GetTickCount() - start
  48.     Else
  49.         Elapsed = finish - start
  50.     End If
  51.  
  52. End Property
  53.  
  54.